home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / GCC 1.37.1r14 / usr / gcc-1.37.1r14 / object oriented files / CDLOGBrowser.cp < prev    next >
Encoding:
Text File  |  1993-04-18  |  1.7 KB  |  67 lines  |  [TEXT/KAHL]
  1. /******************************************************************************
  2.  CDLOGBrowser.c
  3.  
  4.         This is a subclass of CResBrowser that creates a TCL dialog
  5.         when the user double-clicks on a DLOG resource.
  6.         
  7.     SUPERCLASS = CResBrowser
  8.     
  9.     Copyright © 1991 Symantec Corporation. All rights reserved.
  10.     
  11.  
  12.  ******************************************************************************/
  13.  
  14. #include "CDLOGBrowser.h"
  15. #include "CDLOGDirector.h"
  16. #include "Global.h"
  17. #include "CApplication.h"
  18. #include "CDesktop.h"
  19.  
  20. extern CDesktop *gDesktop;
  21. extern CApplication *gApplication;
  22.  
  23. /******************************************************************************
  24.  IDLOGBrowser
  25.  
  26.      Initialize the CDLOGBrowser. No special initialization is needed, so 
  27.      we just call the superclass's initialization method.
  28.      
  29. ******************************************************************************/
  30.  
  31. void CDLOGBrowser::IDLOGBrowser( CBrowseResDoc *aSupervisor, CArray *aResList)
  32. {
  33.     CResBrowser::IResBrowser( aSupervisor, 'DLOG', aResList);
  34. }
  35.  
  36. /******************************************************************************
  37.  MakeResourceWindow
  38.  
  39.      Make resource window is called to make a window for an individual resource.
  40.      We know the resource type is 'DLOG', so we make a TCL dialog window.
  41. ******************************************************************************/
  42.  
  43. CDirector *CDLOGBrowser::MakeResourceWindow( tResourceInfo *aResource)
  44. {
  45.     CDLOGDirector    *dialog = NULL;
  46.     short            savedRes = CurResFile();
  47.     
  48.     TRY
  49.     {
  50.         dialog = new( CDLOGDirector);
  51.         
  52.         UseResFile( HomeResFile( aResource->resource));
  53.         dialog->IDLOGDirector( aResource->ID, this);
  54.         
  55.         dialog->BeginDialog();        
  56.     }
  57.     CATCH
  58.     {
  59.         UseResFile( savedRes);
  60.         ForgetObject( dialog);
  61.     }
  62.     ENDTRY;
  63.     
  64.     UseResFile( savedRes);
  65.  
  66.     return dialog;
  67. }